<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
       NAME="CDO for Windows 2000 Library" -->
<!--#include file="email_templates.inc"-->
<%
Sub sendmail_now(strTo, strFrom, strSubject, strBody)
'funktioniert aber ohne umlaute
Dim objConfig
Dim objMessage
Set objMessage = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")

objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
'Ausgehender SMTP Server mit SMTP-Auth 
'objConfig.Fields(cdoSMTPServer) = "mail.growmetry.com"
objConfig.Fields(cdoSMTPServer) = "mailrelay.edis.at"
'SMTP Port
objConfig.Fields(cdoSMTPServerPort) = 25
'Klartext Authentifizierung
objConfig.Fields(cdoSMTPAuthenticate) = cdoBasic

'Accountname
objConfig.Fields(cdoSendUserName) = "office@growmetry.com"
'Passwort
'objConfig.Fields(cdoSendPassword) = "mu8$anH6kY7"
objConfig.Fields(cdoSendPassword) = "XYXyIhtk"
objConfig.Fields.Update

'call showMessage(strTo & "-" & strFrom & "-" & strSubject & "-strBody:" & strBody)

'strTo= "p.brislinger@inode.at"
'strFrom= "office@growmetry.com"
'strSubject= "Test"
'strBody= "Das ist ein Text 2"

Set objMessage.Configuration = objConfig
objMessage.To        = strTo
objMessage.From      = strFrom
objMessage.Subject   = strSubject
objMessage.TextBody  = strBody 

'call showMessage(strTo & "-" & strFrom & "-" & strSubject & "-strBody:" & strBody)

On Error Resume Next
objMessage.Send'sendet das mail

set objMessage = Nothing

end sub



%>



